home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 71 / MOBICLIC 71.ISO / mac / DATA / COMMUN / temp0001 / 00229_Script_GESTION_BTONS_ZAPETTE__TOOLS < prev    next >
Text File  |  2004-12-05  |  3KB  |  71 lines
  1. global gL_Zap
  2. property p_cettePiste, p_Nodepiste,p_nom_Acteur, pNoBton,pmem_titre
  3. ----------------------------------
  4. on beginsprite me
  5.   p_Nodepiste = me.spriteNum
  6.   p_cettePiste = sprite(p_Nodepiste)
  7.   p_nom_Acteur = p_cettePiste.member.name
  8.   if p_nom_Acteur contains "AIDE" then
  9.     gL_Zap[8] = [p_Nodepiste]
  10.     pNoBton = 1
  11.   else
  12.     gL_Zap[8].add(p_Nodepiste)
  13.     pNoBton = p_Nodepiste - gL_Zap[8][1] + 1
  14.   end if
  15. end
  16. ----------------------------------- 
  17. on mouseEnter
  18.   if the pauseState = 1 then exit
  19.   if gL_Zap[9] <> "ATTENTE" then exit--pas d'ΘxΘcution si on est dans l'aide ,le dico ou l'info
  20.   if gL_Zap[3] = 1 then exit--pas d'ΘxΘcution  pendant la MAJ zapette
  21.   if localParam("TOOLS", pNoBton) = -1 then exit --pas d'ΘxΘcution si la commande est inactive pour ce movie
  22.   pmem_titre = member("TITRE_RUB").text
  23.   case(pNoBton) of
  24.     1:
  25.       member("TITRE_RUB").text = "Aide rubrique"
  26.     2:
  27.       member("TITRE_RUB").text = "Dico"
  28.     3:
  29.       member("TITRE_RUB").text = "Info"
  30.     4:
  31.       member("TITRE_RUB").text = "Sous-titrage"
  32.     5:
  33.       member("TITRE_RUB").text = "Aide tΘlΘcommande"
  34.   end case
  35.   --  p_nom_Acteur = p_cettePiste.member.name--rafraichissement obligΘ de p_nom_Acteur puisque le n░ de style peut varier
  36.   p_cettePiste.member = p_nom_Acteur&"_R"
  37.   lowjingle(8,"TOOLS_"&gimme2digits(pNoBton), "O")
  38.   cursor 280
  39. end
  40. ---------------------------------
  41. on mouseLeave
  42.   cursor -1
  43.   if the pauseState = 1 then exit--pas d'ΘxΘcution si on est dans l'aide ,le dico ou l'info
  44.   if gL_Zap[9] <> "ATTENTE" then exit
  45.   if gL_Zap[3] = 1 then exit--pas d'ΘxΘcution pendant la MAJ zapette
  46.   if localParam("TOOLS", pNoBton) = -1 then exit --pas d'ΘxΘcution si la commande est inactive pour ce movie
  47.   p_cettePiste.member = p_nom_Acteur
  48.   --  member("TITRE_RUB").text =  localparam("MISC","ZTITLE")
  49.   if not(voidP(pmem_titre)) then
  50.     member("TITRE_RUB").text = pmem_titre
  51.   else
  52.     member("TITRE_RUB").text = EMPTY
  53.   end if
  54.   updateStage
  55. end
  56. ----------------------------------- 
  57. on mouseUp
  58.   if the pauseState = 1 then exit
  59.   if gL_Zap[9] <> "ATTENTE" then exit--pas d'ΘxΘcution si on est dans l'aide ,le dico ou l'info
  60.   if gL_Zap[3] = 1 then exit--pas d'ΘxΘcution pendant la MAJ zapette
  61.   if localParam("TOOLS", pNoBton) = -1 then exit --pas d'ΘxΘcution si la commande est inactive pour ce movie
  62.   cursor -1
  63.   if not(voidP(pmem_titre)) then
  64.     member("TITRE_RUB").text = pmem_titre
  65.   else
  66.     member("TITRE_RUB").text = EMPTY
  67.   end if
  68.   ZAP_TOOLS(pNoBton)
  69. end
  70. ----------------------------------- 
  71.